> ## Clayton, Horrillo, and Sniderman > ## The BIAT and the AMP As Measures of Racial Prejudice in Political Science: A Methodological Assessment> ## Additional analyses> > # Initial settings --------------------------------------------------------> > rm(list = ls())> library(tidyverse)> library(scales)> library(estimatr)> > # Read data ---------------------------------------------------------------> > panel <- read.csv("output/main_panel.csv")> panel_cleaned <- panel %>% +   mutate(IAT_D = rescale(IAT_D, to = c(0,1)),+          diff = rescale(diff, to = c(0,1)),+          pid = rescale(pid, to = c(0,1)),+          rr_index = rescale(rr_index, to = c(0,1)))> > table(panel$obama)  0   1 791 561 > > # Analysis ----------------------------------------------------------------> > summary(lm_robust(obama ~ IAT_D + pid + rr_index, data = panel))Call:lm_robust(formula = obama ~ IAT_D + pid + rr_index, data = panel)Standard error type:  HC2 Coefficients:            Estimate Std. Error t value   Pr(>|t|) CI Lower  CI Upper   DF(Intercept)   1.1650   0.025712  45.311 4.634e-268  1.11460  1.215486 1277IAT_D        -0.0306   0.020503  -1.492  1.359e-01 -0.07082  0.009626 1277pid          -0.1360   0.004696 -28.966 3.220e-142 -0.14524 -0.126813 1277rr_index     -0.1106   0.011289  -9.802  6.410e-22 -0.13280 -0.088503 1277Multiple R-squared:  0.5173 ,	Adjusted R-squared:  0.5162 F-statistic: 906.8 on 3 and 1277 DF,  p-value: < 2.2e-16> summary(lm_robust(obama ~ diff + pid + rr_index, data = panel))Call:lm_robust(formula = obama ~ diff + pid + rr_index, data = panel)Standard error type:  HC2 Coefficients:            Estimate Std. Error t value   Pr(>|t|) CI Lower  CI Upper   DF(Intercept)  1.16290   0.025724  45.207 2.829e-267   1.1124  1.213363 1277diff        -0.08251   0.039862  -2.070  3.866e-02  -0.1607 -0.004308 1277pid         -0.13566   0.004718 -28.752 1.359e-140  -0.1449 -0.126400 1277rr_index    -0.10952   0.011165  -9.809  5.985e-22  -0.1314 -0.087616 1277Multiple R-squared:  0.5182 ,	Adjusted R-squared:  0.5171 F-statistic: 893.7 on 3 and 1277 DF,  p-value: < 2.2e-16